home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-seriously_amiga-
/
shareware
/
sound
/
mrmpeg
/
listsave.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-12-01
|
530b
|
22 lines
/* ListSave.rexx */
options results; parse arg mode; address MrMPEG
ASLFR_InitialDrawer = 0x80080009; ASLFR_InitialFile = 0x80080008
MUIA_List_Entries = 0x80421654
if mode = 1 then
aslrequest TITLE '"Save list"' ATTRS ASLFR_InitialDrawer "ENVARC:",
ASLFR_InitialFile "MrMPEG.list"
else result = "ENV:MrMPEG.list"
if open('List', result, 'w') = 1 then do
list ID SLIST ATTRS MUIA_List_Entries
max = result
do i = 0 to max - 1
list ID SLIST POS i
writeln('List', result)
end
call close('List')
end
return